home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / D-H / Effects Specialist.sea / EffectsSpecialistDemo™.rsrc / FYps_10039_Zoom Out < prev    next >
Text File  |  1991-06-19  |  1KB  |  28 lines
  1. %! ZOOM OUT
  2. %% ©1986-1991, Postcraft International, Inc.
  3. %% Designed by Paul McLellan
  4. %% For use only in files created by Effects Specialist
  5. /InsideShade {Intrnals0} def
  6. /OutlineShade {Intrnals1} def
  7. /OutlineSize Intrnals2 def
  8. Intrnals3 /DropOffsetY exch neg def /DropOffsetX exch neg def
  9. /Color {Intrnals4} def
  10. %%
  11. pop kP Intrnals5
  12.   newpath DropOffsetX neg DropOffsetY neg translate
  13.   /TY /RX /BY /LX FXText BBproc  /RX RX KernNet add def
  14.   /Height TY BY sub def  /Width RX LX sub def
  15.   /Slope DropOffsetY DropOffsetX div def
  16.   /CX DropOffsetX 0 gt { LX } { RX } ifelse def
  17.   /CY DropOffsetY 0 gt { BY } { TY } ifelse def
  18.   /Delta 1 DropOffsetX div abs def
  19.   /deltaX DropOffsetX DropOffsetX abs div def
  20.   /deltaY DropOffsetY DropOffsetX abs div def
  21. 1 36 FontSize div DropOffsetX abs { /idx exch def
  22.   gsave idx deltaX mul CX add  idx deltaY mul CY add  translate
  23.     idx Delta mul  idx Delta mul  scale
  24.     Color 1 idx Delta mul sub  CX neg  CY neg  kH grestore } for
  25. DropOffsetX DropOffsetY translate
  26. DropOffsetX DropOffsetY moveto
  27. kF kS
  28.